﻿Imports capaNegocios

Public Class secAlumno_agregar
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub


    Private Sub btnAgregarAlumno_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAgregarAlumno.Click
        Dim objAlumno As New clsAlumno

        objAlumno.nombre = Me.txtNombresAgregar.Text
        objAlumno.apellidoPaterno = Me.txtApellidoPaternoAgregar.Text
        objAlumno.apellidoMaterno = Me.txtApellidoMaternoAgregar.Text
        objAlumno.telefono = Me.txtTelefonoFijoAgregar.Text
        objAlumno.celular = Me.txtTelefonoMovilAgregar.Text
        objAlumno.direccion = Me.txtDireccionAgregar.Text
        objAlumno.dni = Me.txtDniAgregar.Text

        objAlumno.apoderadoNombre = Me.txtNombresApoderadoAgregar.Text
        objAlumno.apoderadoApellidoPaterno = Me.txtApellidoPaternoApoderadoAgregar.Text
        objAlumno.apoderadoApellidoMaterno = Me.txtApellidoMaternoApoderadoAgregar.Text
        objAlumno.apoderadoDireccion = Me.txtDireccionApoderadoAgregar.Text
        objAlumno.apoderadoCelular = Me.txtTelefonoMovilAgregar.Text
        objAlumno.apoderadoTelefono = Me.txtTelefonoMovilAgregar.Text
        objAlumno.apoderadoDni = Me.txtDniApoderadoAgregar.Text
        objAlumno.apoderadoParentesco = Me.txtApoderadoAgregar.Text

        If objAlumno.Agregar() = True Then
            MsgBox("Alumno agregado")
            Response.Redirect("secAlumno.aspx")
        Else
            MsgBox("Error al agregar mensaje")
        End If
    End Sub
End Class